home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / blrplt.zip / NOTIF.DAT < prev    next >
Text File  |  1993-04-09  |  779b  |  32 lines
  1. *BUTTON
  2. {wParam, button ID.  lParamLo, button window handle.
  3.  lParamHi, bn_Clicked or bn_DoubleClicked. }
  4. begin
  5. MessageBeep(0);
  6. end;
  7. *LISTBOX
  8. {wParam, listbox ID.  lParamLo, listbox window handle.
  9.  lParamHi, lbn_DblClk, lbn_SetFocus, lbn_SelChange, or other lbn_ message}
  10. begin
  11. if Msg.LParamHi = lbn_DblClk then MessageBeep(0);
  12. end;
  13. *COMBOBOX
  14. {wParam, combobox ID.  lParamLo, combobox window handle.
  15.  lParamHi, cbn_DblClk, cbn_SetFocus, cbn_SelChange, or other cbn_ message}
  16. begin
  17. if Msg.LParamHi = cbn_DblClk then MessageBeep(0);
  18. end;
  19. *EDIT
  20. {wParam, edit ID.  lParamLo, edit window handle.
  21.  lParamHi, en_Change, en_Update, en_SetFocus, or other en_ message}
  22. begin
  23. end;
  24. *Ok
  25. begin
  26. TDlgWindow.Ok(Msg);
  27. end;
  28. *Cancel
  29. begin
  30. TDlgWindow.Cancel(Msg);
  31. end;
  32.